</DIV>
<DIV align=center>
<DIV id=w2 width="100%"></DIV>
<DIV id=w0 style="DISPLAY: none">
<DIV><FONT color=#fa000e size=6 new roman ?><FONT color=#ff9999 < 
FONT></FONT></DIV>
<DIV><FONT color=#fa000e size=6 new roman ?><FONT color=#ff9999 
face="Alfredo Heavy Hollow " <FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT 
face=Arial><STRONG>Escreva o que quer&nbsp;&nbsp;&nbsp; <BR></STRONG></FONT>
<P><STRONG>&nbsp;</STRONG></P>
<P><STRONG>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </STRONG></P>
<P><STRONG>&nbsp; </STRONG></P>
<P><STRONG>&nbsp;</STRONG></P>
<P><STRONG>&nbsp; </STRONG>
<P><STRONG>&nbsp; </STRONG></P></FONT></B>
<P></P></DIV></DIV>
<SCRIPT language=VBScript>
 
<!--Change color and character for the cursor-->
 
dim w,t,p,mm,c:p=1:c="<font color=#FFCCCC></font>":Set w = document.body
sub tp
' chr
m=mid(t,p,1)
' cursor
if m="" then c=""
' gag correction
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
' tags
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
' car tendus
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
' tempo
tm=0:if m="." then tmp=0 else if m="," then tmp=0
' criture
mm=mm&m:w2.innerHTML=mm&c
' la suite
p=p+1:if p<=len(t)+1 then SetTimeOut "tp",20+tmp
end sub
sub window_onload()
 w.bgcolor="#ffffff"
 
 '-------------------
 t=w0.innerHTML:tp
end sub
 
-->
</SCRIPT>

